0 REM *********************************
1 REM ***                           ***
2 REM ***      EXT. DIR & BAM       ***
3 REM ***                           ***
4 REM ***          (C)  1986        ***
5 REM ***           BY W. FRIEDRICH ***
6 REM ***           C-64 + 1541     ***
7 REM ***                           ***
8 REM *********************************
10 DIM S$(255):I=0:M=0:NU$=CHR$(0):C$=CHR$(13)
20 PRINT CHR$(147)CHR$(159)CHR$(14):POKE53281,0:POKE53280,0
30 FT$(0)="[196][197][204]":FT$(1)="[211][197][209]":FT$(2)="[208][210][199]":FT$(3)="[213][211][210]":FT$(4)="[210][197][204]"
40 LL$="                                           "
100 PRINT"      [197]RWEITERTS [196]IRECTORY & [194][193][205]"
110 PRINT"      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
120 PRINT"      [196][146]RUCKER ODER [194][146]ILDSCHIRM?"
130 GET A$:IF A$=""THEN130
140 IF A$="D"THEN GA=4:GOTO165
150 IF A$<>"B"THEN130
160 GA=3
165 OPEN1,GA,7
170 PRINT"[145]"LL$
180 PRINT"   1 [146]  [197]RWEITERTES [196]IRECTORY":PRINT
190 PRINT"   2 [146]  [194][193][205]"
200 GET A$:IF A$="1"OR A$="2"THEN210
201 GOTO200
210 ON VAL(A$)GOSUB3002,2009
215 GET A$:IF A$=""THEN215
220 PRINT CHR$(147)CHR$(158)
230 PRINT"[206]OCHMAL(J/N)
240 [161] A$:[139] A$[178]""[167]240
250 [139] A$[179][177]"J"[167] [153] [199](159):[128]
260 [138]
500 [143] UNTERPROGRAMME
501 [143] **************
505 [143] DISKNAME UND ID AUSLESEN
506 [143] ************************
510 MN[178]0
520 MN[178]MN[170]1:[139] [198](S$(143[170]MN))[179][177]160[167] DN$[178]DN$[170]S$(143[170]MN):[137]520
530 [129]I[178]0[164]4:ID$[178]ID$[170]S$(162[170]I):[130]
540 [142]
600 [143] FORMATIEREN
601 [143] ***********
610 F$[178][196]([181](F))
612 [139] F[178]0[167] 620
615 [139] F[179]1[167] [152]1," ";
620 [129] II[178]1[164]5[170]SP[171][195](F$):[152]1," ";:[130]
630 [142]
700 [143] STARTADDR PROG
701 [143] **************
710 [159]15,8,15,"I0":[141]910
720 [159]2,8,2,"#":[141]910
730 [152]15,"U1:2,";0;FT;FS
740 [152]15,"B-P:2,0"
760 [161]#2,A$,A$,L$:[139] L$[178]""[167] L$[178]NU$
770 [161]#2,H$:[139] H$[178]""[167] H$[178]NU$
780 SD[178]256[172][198](H$)[170][198](L$):[160]2:[160]15
790 [142]
900 [143] FEHLERKANAL
901 [143] ***********
910 [132]15,Y1,Y$,Y2,Y3:[139] Y1[178]0[167] [142]
920 [153] Y1;[199](18)Y$ [199](146),Y2,Y3:[160]1:[160]2:[160]15:[142]
1000 [143] EINEN SEKTOR LESEN
1001 [143] ******************
1010 [159]15,8,15,"I0":[141]910
1020 [159]2,8,2,"#":[141]910
1030 [152]15,"U1:2,""0";T;S
1040 [152]15,"B-P:2,0"
1050 [152]15,"M-R"[199](0)[199](5)
1060 [161]#2,S$(0):[139] S$(0)[178]""[167] S$(0)[178]NU$
1070 NT[178][198](S$(0))
1080 [161]#2,S$(1):[139] S$(1)[178]""[167] S$(1)[178]NU$
1090 NS[178][198](S$(1))
1110 [129] I[178]2[164]255:[161]#2,S$(I):[139] S$(I)[178]""[167] S$(I)[178]NU$
1120 [130]
1130 [160]2:[160]15
1999 [142]
2000 [143] BAM ANZEIGEN
2001 [143] ************
2009 [153] [199](147)
2010 T[178]18:S[178]0:[141]1010
2012 [141]510
2016 [152]1,"       "[199](18)[199](34)DN$[199](34)"  "ID$[199](146)
2018 [152]1,"  PEEK"C$"  L"C$"  O"C$"  C"C$"  K 012345678901234567890 (null)EKTOR"C$
2020 [129] I[178]1[164]35
2030 BF[178][198](S$(I[172]4))
2040 [129] J[178]1[164]3
2050 Q$[178][196]([198](S$(I[172]4[170]J)))
2060 [141]2505
2070 B$[178]B$[170]BI$
2080 [130]
2085 [139] TZ[179]9[167] [152]1," ";
2090 TZ[178]TZ[170]1:[152]1,TZ;
2100 [139] TZ[179]18[167] [152]1,[200](B$,21)"   ";:[137]2135
2110 [139] TZ[179]25[167] [152]1,[200](B$,19)"     ";:[137]2135
2120 [139] TZ[179]31[167] [152]1,[200](B$,18)"      ";:[137]2135
2130 [152]1,[200](B$,17)"       ";
2135 [139] BF[179]10[167] [152]1," ";
2140 [152]1,BF" PEEKLOCKS FREE"
2150 [139] TZ[179][177]18[167] GF[178]GF[170]BF
2160 B$[178]"":[130]
2170 [152]1,C$"           "GF" PEEKLOCKS FREE"
2180 [142]
2500 [143] DEZ->DUAL
2501 [143] *********
2505 [139] Q$[178]" 255"[167] BI$[178]"........":[142]
2507 [139] Q$[178]" 0"[167] BI$[178]"********":[142]
2510 D[178][197](Q$):BI$[178]"":Z[178]0
2520 Z[178]Z[170]1:D[178]D[173]2:[139] D[179][177][181](D)[167] BI$[178]BI$[170]".":[137]2540
2530 BI$[178]BI$[170]"*"
2540 [139] D[179][177].5[167] D[178][181](D):[137]2520
2580 D[178][195](BI$):[139] D[178]8[167] [142]
2590 [129] K[178]8[171]D [164]1[169][171]1
2600 BI$[178]BI$[170]"*"
2610 [130]
2620 [142]
3000 [143] EXT. DIR
3001 [143] ********
3002 [153]"STR$VAL(null)-ASCILES MIT ANZEIGEN?";
3003 [161] A$:[139] A$[178]""[167]3003
3004 [139] A$[178]"J"[167] DM[178]1:[137]3007
3005 [153]:DM[178]0
3007 [153] [199](147)
3010 T[178]18:S[178]0:[141]1010
3020 [141]510
3030 [152]1,[199](18)[199](34)DN$[199](34)"  "ID$;[199](146)
3040 [139] NT[179][177]18[176] NS[177]21[176] NS[178]0 [167] [152]1,664[171]GL" BLOCKS FREE":[142]
3050 T[178]NT:S[178]NS:[141]1010
3060 [129] I[178]0[164]7
3070 M[178]I[172]32[170]2:MN[178]0:NF$[178]""
3080 FT[178][198](S$(M[170]1)):FS[178][198](S$(M[170]2)):TF[178][198](S$(M))[175]15:SD[178]0
3085 [139] DM[178]0[175] FT[178]0[167]3200
3090 MN[178]MN[170]1:TE[178][198](S$(M[170]2[170]MN)):[139] TE[179][177]160[175] TE[177]10[167] NF$[178]NF$[170]S$(M[170]2[170]MN):[137]3090
3095 [139] NF$[178]""[167] 3200
3100 L[178][198](S$(M[170]29))[172]256[170][198](S$(M[170]28)):LG[178]LG[170]L
3120 [139] TF[179][177]0[167] [141]710
3130 F[178]L:SP[178]0:[141]610
3150 [152]1,L"   "[199](34)NF$;[199](34);[200](LL$,18[171][195](NF$));
3160 [152]1,FT$(TF);"  ";
3165 [139] FT[179]10[167] [152]1," ";
3170 [152]1," ";FT;
3175 [139] FS[179]10[167] [152]1," ";
3180 [152]1," ";FS;"   "[200](LL$,6[171][195]([196](SD)));SD;
3185 F[178]L[173]4:SP[178]2:[141]610:[152]1,L[173]4
3190 [139] TF[179][177]0[167] GL[178]GL[170]L
3200 [130]
3210 [137]3040